10 REMPROGRAM LOAD INFORMATION
12 PRINT"[147]PROGRAM LOAD INFORMATION":XY$="0123456789ABCDEF"
13 PRINT"BY BOB SWIFT            ":C=0
15 INPUT"PROGRAM NAME";F$:OPEN15,8,15
20 OPEN2,8,2,"0:"+F$+",P,R"
30 GET#2,L$:IFST<>0THENINPUT#15,E1,E$:PRINT"";E1;"[157], ";E$;" ":GOTO80
40 GET#2,H$
50 X$=H$:GOSUB 100:H=X*256
60 X$=L$:GOSUB 100:L=X
70 PRINT"LOAD FROM : $";:X=H+L:GOSUB130:GOTO150
80 CLOSE2,15
90 END
100 IF X$="" THEN X=0:RETURN
110 X=ASC(X$)
120 RETURN
130 X1=X:A$="":FORI=1TO4:Y=INT(X/16^(4-I)):A$=A$+MID$(XY$,Y+1,1)
140 X=X-Y*16^(4-I):NEXT:PRINTA$,X1:RETURN
150 GET#2,A$:C=C+1:IFST=0THEN150
160 CLOSE2,15:X=C+X1:PRINT"       TO : $";:GOSUB130
170 PRINT"NUMBER OF BYTES :";C;""
200 REM:                              :
201 REM:   PROGRAM LOAD INFORMATION   :
202 REM:                              :
203 REM:              BY              :
204 REM:                              :
205 REM:          BOB SWIFT           :
206 REM:                              :
207 REM:                              :
208 REM:   THIS PROGRAM WILL DISPLAY  :
209 REM:   THE FOLLOWING INFORMATION  :
210 REM:   ON THE SCREEN ABOUT ANY    :
211 REM:   PROGRAM ON DISK THAT YOU   :
212 REM:   CARE TO CHECK.             :
213 REM:                              :
214 REM:   INFORMATION:               :
215 REM:                              :
216 REM:     LOAD FROM: $HHHH  DDDDD  :
217 REM:            TO: $HHHH  DDDDD  :
218 REM:                              :
219 REM:     NUMBER OF BYTES: DDDDD   :
220 REM:                              :
221 REM:                              :
222 REM:                              :